home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / qtawk / calcinna.exp < prev    next >
Text File  |  1990-09-27  |  8KB  |  281 lines
  1. # QTAwk Utility
  2. # CALCIN - INfix Expression Calculator
  3. #
  4. # Infix Expression Calculator.
  5. # (C) Copyright 1989, 1990 Terry D. Boldt, All Rights Reserved.
  6. #
  7. # Without ANSI.SYS driver use
  8. #
  9. # input: expression in Algebraic form
  10. # output: value of each expression
  11. #
  12. #
  13. BEGIN {
  14.     _arg_chk = TRUE;
  15.  
  16.     monthn[ 1] = "January";
  17.     monthn[ 2] = "February";
  18.     monthn[ 3] = "March";
  19.     monthn[ 4] = "April";
  20.     monthn[ 5] = "May";
  21.     monthn[ 6] = "June";
  22.     monthn[ 7] = "July";
  23.     monthn[ 8] = "August";
  24.     monthn[ 9] = "September";
  25.     monthn[10] = "October";
  26.     monthn[11] = "November";
  27.     monthn[12] = "December";
  28.  
  29.     weekday[0] = "Sunday";
  30.     weekday[1] = "Monday";
  31.     weekday[2] = "Tuesday";
  32.     weekday[3] = "Wednesday";
  33.     weekday[4] = "Thursday";
  34.     weekday[5] = "Friday";
  35.     weekday[6] = "Saturday";
  36.  
  37.     stderr = "stderr";
  38.  
  39.     # set display colors
  40.     # highlight
  41.     hl_color = "\x01b[0;32;40m";
  42.     # normal display
  43.     nl_color = "\x01b[1;31;44m";
  44.  
  45.     OFMT = "%.14g";
  46.  
  47.     se_flag = TRUE;
  48.     recover_flag = TRUE;
  49.  
  50.     split(sdate(1),tdate,/\//);
  51.     today = jdn(tdate[3],tdate[1],tdate[2]);
  52.  
  53. #
  54. # Gregorian/Julian calender flag.
  55. #   TRUE == julian
  56. #   FALSE == gregorian
  57. #
  58.     greg_jul = FALSE;
  59.  
  60.     numeric = /^({_i}|{_f}|{_r})$/;
  61.  
  62.     Yess = /[Yy](es)?/;           # Yes string
  63.     Nos  = /[Nn]o?/;              # No  string
  64.     Yes  = /^{_w}*{Yess}{_w}*$/;      # Yes answer
  65.     No     = /^{_w}*{Nos}{_w}*$/;       # No  answer
  66.     Quit = /^{_w}*[Qq](uit)?({_w}+({Yess}|{Nos}))?{_w}*$/;  # define regular expression To  Quit
  67.     Help = /^{_w}*[Hh](elp)?{_w}*$/;    # define regular expression for Help
  68.     Stat = /^{_w}*[Ss](tat(us)?)?{_w}*$/; # define regular expression for status
  69.     Cls  = /^{_w}*[Cc](ls)?{_w}*$/;       # define regular expression To Clear Screen
  70.  
  71.     quit_status = TRUE;
  72.  
  73.     # find number of variables defined in calculator progam
  74.     # any new variables defined by user will be in addition to this number
  75.     # the number, vcnt, is then used in displaying status
  76.     vcnt = var_number(FALSE);
  77.  
  78.     copyright;
  79.     prompt;
  80. }
  81.  
  82. GROUP Quit {
  83.     if ( NF > 1 ) {
  84.     switch ( $2 ) {
  85.         case Yes:
  86.         quit_status = TRUE;
  87.         break;
  88.         case No:
  89.         quit_status = FALSE;
  90.         break;
  91.     }
  92.     }
  93.     exit 2;
  94. }
  95.  
  96. GROUP Help { help; prompt; next; }
  97.  
  98. GROUP Stat { stat; prompt; next; }
  99.  
  100. GROUP Cls  { copyright; prompt; next; }
  101.  
  102.     {
  103.     line = $0;
  104.     if ( $0 !~ /;$/ ) line ∩= ';'; #check for trailing ';'
  105.     jj = execute(line,se_flag,recover_flag);
  106.     if ( jj ~~ numeric ) jj = addcomma(jj);
  107.     print '\t' ∩ jj;
  108.     prompt;
  109. }
  110.  
  111. END {
  112.     if ( quit_status ) copyright;
  113. }
  114.  
  115. # function to convert year/month/day into julian day number
  116. function jdn(year,month,day) {
  117.     local yr;
  118.     local pfac = 0.6;
  119.     local ljdn;
  120.  
  121.     yr = year + (month - 3.0) / 12.0;
  122.     ljdn = int(367.0 * yr + pfac) - (2 * int(yr)) + int(yr/4.0)
  123.        + int(day) + 1721117;
  124.     if ( !greg_jul ) ljdn += -int(yr/100.0) + int(yr/400.0) + 2;
  125.     return ljdn;
  126. }
  127.  
  128. #  function to convert julian dday number to year/month/day
  129. function caln(cjdn) {
  130.     local n, ic, np, npp, mp;
  131.     local yr, mo, day;
  132.     local wkd = weekday[(cjdn + 1) % 7];
  133.  
  134.     n = int(cjdn) - 1721119;
  135.     ic = int((n - 0.2)/36524.25);
  136.     if ( greg_jul ) np = n + 2; else np = n + ic - (ic / 4);
  137.     yr = int((np - 0.2)/365.25);
  138.     npp = np - int(365.25 * yr);
  139.     mp = int((npp - 0.5)/30.6);
  140.     day = int(npp + 0.5 - 30.6 * mp);
  141.     if ( mp <= 9 ) mo = mp + 3;
  142.       else {
  143.     yr++;
  144.     mo = mp - 9;
  145.     }
  146.     return wkd ∩ ", " ∩ day ∩ " " ∩ monthn[mo] ∩ ", " ∩ yr;
  147. }
  148.  
  149. # function to set stack to today + days in future (past)
  150. function fdate(days) {
  151.     local tdate; # tdate[1] == month, tdate[2] == day, tdate[3] = year
  152.     local fd;
  153.     local wkday;
  154.  
  155.     fd = today + days;
  156.     return caln(fd);
  157. }
  158.  
  159. # function to provide header & copyright information
  160. function copyright() {
  161.     fprintf(stderr,"\n");
  162.     fprintf(stderr,"Infix Calculator\n(C) Copyright 1989, 1990 Terry D. Boldt, All Rights Reserved\n");
  163. }
  164.  
  165. function help() {
  166.     copyright;
  167.     fprintf(stderr,"Operators Available:\n");
  168.     fprintf(stderr,"n1 + - * / n2, add subtract multiply divide n1 to n2\n");
  169.     fprintf(stderr,"n1 % n2, n1 remainder of n2\n");
  170.     fprintf(stderr,"n1 ^ n2, n1 to n2 power\n");
  171.     fprintf(stderr,"n1 [& | @] n2, n2 bit-wise [ and or xor ] n2\n");
  172.     fprintf(stderr,"n1 [<< >>] n2, n1 shifted [ left right ] n2 bits\n");
  173.     fprintf(stderr,"atan2(n1,n2), arc_tan(n1/n2), -π to π\n");
  174.     fprintf(stderr,"~n1, one's complement of n1\n");
  175.     fprintf(stderr,"var, display value of variable var\n");
  176.     fprintf(stderr,"built-in single argument functions:\n");
  177.     fprintf(stderr,"sin asin cos acos sinh cosh log log10 int exp sqrt fract\n");
  178.     fprintf(stderr,"jdn(yr,mo,day) - compute julian day number from date\n");
  179.     fprintf(stderr,"dow(yr,mo,day) - compute day of week from from date, Sunday == 0\n");
  180.     fprintf(stderr,"caln(jdn) - compute date from julian day number\n");
  181.     fprintf(stderr,"fdate(days) - compute date days into future(past)\n");
  182.     fprintf(stderr,"hrs(hh,mm,ss) - compute hours from hour, minute, second\n");
  183.     fprintf(stderr,"hms(hr) - compute hour, minute, second from hours\n");
  184.     fprintf(stderr,"now() or now - return current time, decimal\n");
  185.     fprintf(stderr,"\n[Hh](elp)? to display help\n");
  186.     fprintf(stderr,"[Ss](tatus)? to display status\n");
  187.     fprintf(stderr,"[Cc](ls)? to clear screen\n");
  188.     fprintf(stderr,"[Qq](uit)? to quit\n");
  189. }
  190.  
  191. # function to display calculator status
  192. function stat() {
  193.     local j, jj, ostr;
  194.  
  195.     copyright;
  196.     fprintf(stderr,"Calculator Status:\n");
  197.     printf("Calender Set: %s.\n",greg_jul ? "Julian" : "Gregorian");
  198.     fprintf(stderr,"Assume %s for Trig. Functions\n",DEGREES ? "Degrees" : "Radians");
  199.     fprintf(stderr,"Defined variables:\n");
  200.     fprintf(stderr,"Pre-Defined:\n");
  201.     fprintf(stderr,"se_flag == %s\n",se_flag ? "TRUE" : "FALSE");
  202.     fprintf(stderr,"recover_flag == %s\n",recover_flag ? "TRUE" : "FALSE");
  203.     fprintf(stderr,"today == %s\n",addcomma(today));
  204.     fprintf(stderr,"User-Defined:\n");
  205.     for ( j = vcnt , ostr = ud_sym(j++,jj) ; jj ; ostr = ud_sym(j++,jj) ) {
  206.     if ( ostr ~~ numeric ) ostr = addcomma(ostr);
  207.     fprintf(stderr,"%s == %s\n",jj,ostr);
  208.     }
  209. }
  210.  
  211. # function to convert hours, minutes, seconds to fractional hours
  212. function hrs(hrs,min,sec) {
  213.     return hrs += min/60.0 + sec/3600.0;
  214. }
  215.  
  216. # functions to convert fractional hours to hrs, min, sec
  217. function hms(hrs) {
  218.     local hr = int(hrs);
  219.     local mins = fract(hrs) * 60;
  220.     local secs = fract(mins) * 60;
  221.     local ampm;
  222.  
  223.     mins = int(mins);
  224.     if ( secs > 59 ) {
  225.     secs = 0;
  226.     mins++;
  227.     } else secs = int(secs);
  228.     if ( mins > 59 ) {
  229.     mins = 0;
  230.     hr++;
  231.     }
  232.     if ( hr >= 24 ) hr = 0;
  233.     if ( hr < 12 ) ampm = "am";
  234.       else {
  235.     ampm = "pm";
  236.     if ( hr > 12 ) hr -= 12;
  237.     }
  238.     return hr ∩ ":" ∩ mins ∩ ":" ∩ secs ∩ " (" ∩ ampm ∩ ")";
  239. }
  240.  
  241. # function to add commas to numbers
  242. function addcomma(x) {
  243.     local num;
  244.     local spat;
  245.     local bnum = /{_d}{3,3}([,.]|$)/;
  246.  
  247.     if ( x < 0 ) return "-" addcomma(-x);
  248.     num = sprintf("%.14g",x);        # num is dddddd.dd
  249.     spat = num ~~ /\./ ? /{_d}{4,4}[.,]/ : /{_d}{4,4}(,|$)/;
  250.     while ( num ~~ spat ) sub(bnum,",&",num);
  251.     return num;
  252. }
  253.  
  254. function prompt() {
  255.     printf("<>");
  256. }
  257.  
  258. # function to return the current number of GLOBAL variables defined in utility
  259. function var_number(display) {
  260.     local cnt, j, jj;
  261.  
  262.     for ( jj = cnt = 1 ; jj ; cnt++ ) {
  263.     j = ud_sym(cnt,jj);
  264.     if ( display ) print cnt ∩ " : " ∩ jj ∩ " ==>" ∩ j ∩ "<==";
  265.     }
  266.     return cnt - 1;
  267. }
  268.  
  269. # function to compute day of week from date
  270. function dow(yr,mo,day) {
  271.     return (jdn(yr,mo,day) + 1) % 7;
  272. }
  273.  
  274. # function return current time, decimal
  275. function now() {
  276.     local ntime;
  277.  
  278.     split(stime(1),ntime,/:/);
  279.     return hrs(ntime[1] + 0.0,ntime[2] + 0.0,ntime[3] + 0.0);
  280. }
  281.